home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / gnu / bc-1_02.lha / bc-1.02 / Test / fact.b < prev    next >
Text File  |  1991-12-16  |  123b  |  14 lines
  1. define f (x) {
  2.  
  3.   if (x<=1) return(1)
  4.   return (f(x-1)*x)
  5. }
  6.  
  7. "Here we go"
  8. for (a=1; a<100; a++) b+=f(a)/a
  9. "
  10. "
  11. "b=";b
  12. quit
  13.  
  14.